home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)te.d64 / hangman.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  219 lines
  1. 1 POKE53280,0:POKE53281,0
  2. 7 PRINT"[147]"TAB(16)"[154] HANGMAN [158]":PRINT
  3. 8 REM***BY DAN RUDIAK***ADAPTED BY WHIZ KIDS***
  4. 9 PRINTTAB(17)"FOR THE"
  5. 10 PRINTTAB(14)"COMMODORE 64":PRINT
  6. 11 TI$="000000"
  7. 12 PRINT"WHAT IS YOUR FIRST NAME";:INPUTA0$
  8. 13 A=INT(TI/5):FORI=1TOA:X=RND(1):NEXTI
  9. 19 N$=LEFT$(A0$,1)
  10. 20 PRINT"[147]"TAB(16)"HANGMAN":PRINT
  11. 22 FORI=1TO10:GETA$:NEXTI
  12. 30 PRINT"I THINK OF A WORD AND YOU TRY TO GUESS"
  13. 40 PRINT"LETTER BY LETTER WHAT THE WORD IS."
  14. 200 PRINT"[129] [162][162][162][162][162][162][162][162][162][162][162][157][157][157][157][157][157][157][157][157][157][157]";
  15. 210 PRINT"[161][161][146]  [206][206]   [194][157][157][157][157][157][157][157][157][157][157][161][161][146] [206][206]    [215][157][157][157][157][157][157][157][157][157][157][161][161][146][206][206][157][157][157][157][161][161][146][206]";
  16. 220 PRINT"[157][157][157][161][161][146][157][157][161][161][146][157][157][161][161][146][157][157][161][161][146][166][166][166][166][166][163][163][163][163][163][166][166][157][157][157][157][157][157][157][157][157][157][157][157][157][157][166][166][166][166][166][166][166]";
  17. 230 PRINT"     [166][166][166][166][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][166][166][166][166][166][166][166]     [166][166][166][166][166][166]"
  18. 240 PRINT"";
  19. 250 PRINT"O[157][157][164][194][146][205][157][157][166][163][157][157][157][167][167][157][157][186][186]";
  20. 305 M=0:R=0
  21. 310 RESTORE:READN:R1=INT(N*RND(1)+1)
  22. 340 FOR K=1TOR1:READ A$:NEXTK
  23. 350 IF R1<79 AND RND(1)<.3THEN A$=A$+"S"
  24. 360 P$=""
  25. 370 FOR A=1 TO LEN(A$):P$=P$+"-":NEXTA
  26. 390 PRINT"THE WORD IS "P$"              "
  27. 400 B$="ABCDEFGHIJKLMNOPQRSTUVWXYZ'":U$=""
  28. 407 GOTO 420
  29. 410 PRINT"THE WORD IS "P$:IF A$=P$ THEN GOSUB7000:GOTO 20
  30. 411 R=0:Q=140:GOSUB8000
  31. 412 IF TI<140 GOTO 412
  32. 413 PRINT"                   ":PRINT"                   "
  33. 414 PRINT"                "
  34. 420 PRINT"WHAT IS YOUR GUESS?  ";
  35. 421 GET G$:PRINT"[157][191][146]";:IFG$=CHR$(13) GOTO 421
  36. 422 Q=10:GOSUB8000
  37. 423 PRINT"[157][218]";
  38. 424 Q=10:GOSUB8000
  39. 425 IF G$="" GOTO 421
  40. 426 PRINT"[157]"G$:PRINT"                   "
  41. 430 FOR A=1 TO 27
  42. 440 IF G$=MID$(B$,A,1) GOTO 480
  43. 450 NEXTA
  44. 460 PRINT"NOT A VALID":PRINT"CHARACTER!":GOTO 410
  45. 480 FOR A=1 TO LEN(U$):IF G$=MID$(U$,A,1) GOTO 510
  46. 490 NEXTA:GOTO 540
  47. 510 PRINT"YOU HAVE ALREADY"
  48. 520 PRINT"USED THAT LETTER!"
  49. 530 PRINT"GUESS AGAIN.":GOTO 410
  50. 540 U$=U$+G$
  51. 545 FOR A=1 TO LEN(A$)
  52. 550 IF G$=MID$(A$,A,1) THEN P$=MID$(P$,1,A-1)+G$+MID$(P$,A+1,LEN(P$)):R=1
  53. 555 NEXTA
  54. 557 IF R=1 GOTO 1000
  55. 560 PRINT"WRONG":M=M+1:GOSUB2000:GOTO 410
  56. 1000 PRINT"RIGHT"
  57. 1001 GOTO 410
  58. 2000 ON M GOTO 3100,3200,3300,3400,3500,3600,3700,3900
  59. 3100 PRINT"";
  60. 3105 PRINT"O[157][157][164][194][146][205][157][157][166][163][157][157][157][167][167][157][157][186][186]";
  61. 3115 Q=50:GOSUB8000
  62. 3120 PRINT"[157][157][205][145][157][206]";
  63. 3130 Q=20:GOSUB8000
  64. 3135 PRINT"[157][157][164][207][157] ";
  65. 3145 Q=20:GOSUB8000
  66. 3150 PRINT"[145][145][145][145][145]O[157][157][167][194][146][205][157][157][157][206][166][206][157][157][157][206][167] [157][157][157][157][186] [186][157] ";
  67. 3155 PRINT"[145][145][145][145][145][157][157]O [157][157][157][192][194][146][205] [157][157][157][157] [166][167] [157][157][157][157][167][167] [157][157][157][186][186] [157][157] ";
  68. 3160 PRINT"[145][145][145][145][145][157][157]O [157][157][157][198][194][146][205] [157][157][157][157] [166][206] [157][157][157][167] [157][157][186] ";
  69. 3170 PRINT"[145][145][145][145][145][157][157]O [157][157][157][164][194][146][205] [157][157][157][157] [166][163] [157][157][157][157][167][167] [157][157][157][186][186] [157][157]" ;
  70. 3180 RETURN
  71. 3200 PRINT"";
  72. 3205 PRINT"O[157][157][164][194][146][205][157][157][166][163][157][157][157][167][167][157][157][186][186]";
  73. 3210 GOTO 3120
  74. 3300 PRINT"";
  75. 3305 PRINT"O[157][157][164][194][146][205][157][157][166][163][157][157][157][167][167][157][157][186][186]";
  76. 3310 GOTO 3120
  77. 3350 PRINT"O[157][157][186][194][146][205][157][157][166][163][157][157][157][206] [165][157][157][157][157][186] [205][157][163]";
  78. 3400 PRINT"";:GOSUB3410
  79. 3405 RETURN
  80. 3410 PRINT"O[157][157][164][194][146][205][157][157][166][163][157][157][157][167][167][157][157][186][186]";
  81. 3416 Q=30:GOSUB8000
  82. 3417 PRINT"[145][157][206][157][205]";
  83. 3419 Q=15:GOSUB8000
  84. 3430 PRINT"[145][145][145][145][157][157]O [157][157][157][164][194][146][205] [157][157][157][166][163] [157][157][157][157][206][167] [157][157][157][205][186] [157]";
  85. 3436 Q=5:GOSUB8000
  86. 3440 PRINT"[157][157][157][186] ";
  87. 3446 Q=10:GOSUB8000
  88. 3470 PRINT"[145][145][145][145][157][157]O [157][157][157][164][194][146][205] [157][157][157][166][163] [157][157][157][157][167][167] [157][157][157][186] [205] [157][157]";
  89. 3476 Q=5:GOSUB8000
  90. 3480 PRINT"[145][157][167][160][157][157][186] [157]"
  91. 3490 RETURN
  92. 3500 PRINT"";:GOSUB3410
  93. 3510 RETURN
  94. 3600 PRINT"";
  95. 3610 PRINT"O [157][157][157][164][194][146][205] [157][157][157][166][163] [157][157][157][157][167][167] [157][157][157][186][186]  [157][157]";
  96. 3616 Q=20:GOSUB8000
  97. 3620 PRINT"[145][145][145][145][157]O [157][157][157][164][200][146][205] [157][157][157][166][167] [157][157][157][157][167][167] [157][157][157][167][167]  [157][157]";
  98. 3626 Q=15:GOSUB8000
  99. 3630 PRINT"[145][145][145][145][157]O [157][157][157] [217][146][212] [157][157][157][166][212] [157][157][157][157][167][167] [157][157][157][167][167]  [157][157]";
  100. 3636 Q=15:GOSUB8000
  101. 3640 PRINT"[145][145][145][145][157]O [157][157][157][217]"N$"[146][205][157][157][157][217][166][206] [157][157][157][157][167] [165][157][157][157][186] [204] [157][157]";
  102. 3646 Q=20:GOSUB8000
  103. 3650 PRINT"[145][145][145][157][157][206][157][205]"
  104. 3690 RETURN
  105. 3700 PRINT"";
  106. 3710 PRINT"O [157][157][157][206]"N$"[146][205][157][157][157][205][166][206] [157][157][157][157][167] [165][157][157][157][186] [204] [157][157]";
  107. 3715 GOSUB4100
  108. 3720 PRINT"[145][145][157][157][165][167][157]";
  109. 3725 GOSUB4100
  110. 3730 PRINT"[145][145][157][157][157][163]  [163][157][157]";
  111. 3735 GOSUB4100
  112. 3740 PRINT"[145][145][145][157][157][157][163][163][163][163][157][157][157][157][157]  [157][157]";
  113. 3745 GOSUB4100
  114. 3750 PRINT"[145][145][145][145][157][157][157][205][206][157][157][157][157][157]  [157][157]";
  115. 3755 GOSUB4100
  116. 3760 PRINT"[145][145][145][145][157][157][157] [204][186] [157][157][157][157][157]    [157][157]";
  117. 3765 GOSUB4100
  118. 3770 PRINT"[145][145][145][145][145][157][157][165][167][157][157][157][205][206][157]";
  119. 3775 GOSUB4100
  120. 3780 PRINT"[145][145][145][145][145][157][157][206][205][157]";
  121. 3786 Q=35:GOSUB8000
  122. 3790 PRINT"[145][145][145][145][145][157][157][164][129][194][164][157]";
  123. 3796 Q=35:GOSUB8000
  124. 3800 PRINT"[145][145][145][145][145] [157][186][157]";:A0=(null)^(null):PRINT"[145][145][145][145] [157][208][157]";:A0=(null)^(null)
  125. 3810 PRINT"[145][145][145][205][157][206][157]";:A0=(null)^(null):PRINT"[145][145][145][145][145][157][157] [157][204]";:A0=(null)^(null):PRINT"[157] [157][207]";
  126. 3820 A0=(null)^(null):PRINT"[157][206][157][205]";
  127. 3830 RETURN
  128. 3900 GOSUB 6100:GOSUB 6000
  129. 3920 PRINT"     [157][157][157][157][157][205][205][205]";
  130. 3925 Q=5:GOSUB8000
  131. 3927 PRINT"[157][157][157][145][145]   "
  132. 3930 FOR Y=2TO3
  133. 3940 FOR B=1TOINT(7*RND(1)+1)
  134. 3950 FORR0=YTO4:GOSUB4000:GOSUB5000:NEXTR0
  135. 3960 FORR0=4TOYSTEP-1:GOSUB4000:GOSUB5000:NEXTR0:NEXTB:NEXTY
  136. 3965 R=(null)^(null)^(null):R0=4:A0=6:L0=4:L1=4:GOSUB5000
  137. 3968 Q=500*RND(1):GOSUB8000
  138. 3969 A0=6:L0=INT(4*RND(1)+1):L1=INT(4*RND(1)+1):GOSUB5000
  139. 3970 L0=4:L1=4:GOSUB5000
  140. 3971 Q=15:GOSUB8000:FORI=1TOINT(9*RND(1)):GOSUB5000:NEXTI
  141. 3972 Q=300:GOSUB8000
  142. 3990 PRINT"[147]":GOTO20
  143. 4000 A0=INT(7*RND(1)+1):L0=INT(4*RND(1)+1):L1=INT(4*RND(1)+1):RETURN
  144. 4100 Q=5:GOSUB8000
  145. 4120 RETURN
  146. 5000 ON R0 GOTO 5001,5002,5003,5004
  147. 5001 PRINT"";:GOTO 5005
  148. 5002 PRINT"";:GOTO 5005
  149. 5003 PRINT"";:GOTO 5005
  150. 5004 PRINT"";
  151. 5005 PRINT" [129] [194]  [157][157][157][157][157]  Q  ";
  152. 5010 PRINT"[157][157][157][157][157]  "N$"[146]  [157][157][157][157][157]  [166]  [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     ";
  153. 5020 ON A0 GOTO 5030,5040,5050,5060,5070,5080,5090
  154. 5030 PRINT"[157][157][157][157][157][145][145][145][145][145][205][164][164][206]";:GOTO 5100
  155. 5040 PRINT"[157][157][157][157][157][145][145][145][145][206][163][163][163]";:GOTO 5100
  156. 5050 PRINT"[157][157][157][157][157][145][145][145][145][206][163][163][145][206]";:GOTO 5100
  157. 5060 PRINT"[157][157][157][157][157][145][145][145][145][205][206][205][206]";:GOTO 5100
  158. 5070 PRINT"[157][157][157][157][157][145][145][145][167][145][206][205][165]";:GOTO 5100
  159. 5080 PRINT"[157][157][157][157][145][145][145][217][145][157][217][212][157][212]";:GOTO 5100
  160. 5090 PRINT"[157][157][157][157][145][145][145][205][157][145][206][205][157][206]";:GOTO 5100
  161. 5100 ON L0 GOTO 5110,5120,5130,5140
  162. 5110 PRINT"[157][157][157][157][157][145][145][145][206][204]";:GOTO 5150
  163. 5120 PRINT"[157][157][157][157][157][145][145][145][164][186]";:GOTO 5150
  164. 5130 PRINT"[157][157][157][157][157][145][145] [205][164]";:GOTO 5150
  165. 5140 PRINT"[157][157][157][157][145][157][145] [165][157][204]";:GOTO 5150
  166. 5150 ON L1 GOTO 5160,5170,5180,5190
  167. 5160 PRINT"[157][157][157][157][157][145][145][145][186][205]";:GOTO 5200
  168. 5170 PRINT"[157][157][157][157][157][145][145][145][204][164]";:GOTO 5200
  169. 5180 PRINT"[157][157][157][157][157][145][145][204][206] ";:GOTO 5200
  170. 5190 PRINT"[157][157][157][157][145][186][157][145][167] [157]";:GOTO 5200
  171. 5200 RETURN
  172. 6000 PRINT"SO LONG, "A0$
  173. 6005 GOSUB6300
  174. 6020 PRINT"                   "
  175. 6050 RETURN
  176. 6100 PRINT"SORRY -- THE WORD WAS "A$
  177. 6105 GOSUB6300
  178. 6110 PRINT"THANKS[157][157][157][157][157]ALOT!"
  179. 6115 GOSUB6300
  180. 6120 RETURN
  181. 6215 GOSUB6300
  182. 6220 RETURN
  183. 6300 Q=160:GOSUB8000
  184. 6302 RETURN
  185. 7000 PRINT" CONGRATULATIONS[146]"
  186. 7005 PRINT:PRINT" YOU GUESSED IT!":PRINT
  187. 7010 PRINT"YOU SAVED YOURSELF":PRINT:FORI1=1TO20
  188. 7030 Q=15:GOSUB8000
  189. 7040 PRINT"[145]FOR THE TIME BEING"
  190. 7042 Q=15:GOSUB8000
  191. 7043 PRINT"[145]                  "
  192. 7045 NEXTI1
  193. 7050 RETURN
  194. 8000 TI$="000000"
  195. 8010 IF TI<Q GOTO 8010
  196. 8020 RETURN
  197. 8100 FORI=1TO148:READA$:PRINT"[147]"A$:Q=0:GOSUB8000:NEXTI
  198. 9000 DATA 147
  199. 9010 DATA"YANK","JERK","KNOCK","YAWN","WELD","SCOWL","WHIRL","HUSK"
  200. 9020 DATA"RASP","SWARM","HARM","TEMPT","ASK","CROWD","THWART","SQUAWK"
  201. 9030 DATA"SNOW","END","ARC","ARM","ACT","EXCEPT","EXPEND","EXTRACT"
  202. 9040 DATA"JUNK","OBSTRUCT","TWANG","ZEPHYR","NICHE","GHOST","JAB","OHM"
  203. 9050 DATA"KIND","XYLOPHONE","STYLE","SCHISM","SCHEME","CZAR","CRYPT","ZIP"
  204. 9060 DATA"SYMPTOM","TWERP","LEAGUE","CRESCENT","QUIT","SWERVE","GRUB","GROW"
  205. 9070 DATA"GNAT","EXEMPT","PSALM","ZEBRA","EXCERPT","INSTINCT","DEPTH","AMP"
  206. 9080 DATA"STRENGTH","ANT","NYMPH","SPRINKLING","AWL","ASP","ART","ARK"
  207. 9090 DATA"ALP","AXE","URCHIN","AWN","ACE","INKLING","JOWL","KNACK"
  208. 9100 DATA"ORCHARD","APE","SCREW","AISLE","YACHT","EMBEZZLE","DUMMY","RHUMBA"
  209. 9110 DATA"ASPARAGAS","GNU","WHARF","FOXY","YOGHURT","VOODOO","SOLEMN","DIZZILY"
  210. 9120 DATA"GHASTLY","TWILIGHT","STYLUS","SUEDE","ADZ","TYMPANY","TWO","FILCH"
  211. 9130 DATA"UGLY","WRY","WAX","SKIING","SCISSORS","TWITCH","VACUUM","PITCH"
  212. 9140 DATA"WHY","DRY","STRETCH","TRY","SWIMMING","SWITCH","WATCH","GYPSY"
  213. 9150 DATA"GULCH","SKY","DWARF","SIXTH","ELF","FRY","TWELFTH","SPLOTCH"
  214. 9160 DATA"PEOPLE","SHREWD","WHO","ARCHAIC","ASH","APT","AND","UNSHRUNK"
  215. 9170 DATA"AWE","ALPHA","ESCROW","INFLUX","ISTHMUS","IOTA","JUMPY","KRYPTON"
  216. 9180 DATA"OCEANIC","AFT","UNLUCKY","UNSTRUNG","FUZZ","TUX","RYE","AURORA"
  217. 9190 DATA"BLITZ","DRUNK","PHYSICS"
  218. 10000 PRINT"[147]"
  219.